set.seed(5003)
alzdata <- read.csv("alzheimers_disease_data.csv")
alzdata$Diagnosis <- factor(alzdata$Diagnosis, levels = c(0, 1), labels = c("No", "Yes"))
alzdata <- subset(alzdata, select = -c(PatientID, DoctorInCharge))
indices <- createDataPartition(alzdata$Diagnosis, p = 0.7, list = FALSE)
train_dat <- alzdata[indices,]
test_dat <- alzdata[-indices, ]